home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
comms
/
www
/
ibrowsescripts
/
switch_icons
< prev
next >
Wrap
Text File
|
1999-04-19
|
739b
|
30 lines
/* Install.rexx
*/
OPTIONS RESULTS
OPTIONS FAILAT 10
ADDRESS 'COMMAND'
IF EXISTS('multiview')THEN 'Run multiview newmailicons.iff'
'wait 2'
call addlib('libs:rexxreqtools.library',0,-30)
lib= show('Libs',"rexxreqtools.library")
ADDRESS 'COMMAND'
IF ~lib THEN say 'Could not find rexxreqtools.library!!!'
what_but='First try|Fun|Strict|Yamish|Cancel'
where_txt='select iconset for newmail'
sel=rtezrequest(where_txt,what_but,title,'rtez_defaultresponse=1')
IF sel=0 then Exit
ADDRESS 'COMMAND'
IF sel=1 THEN 'copy first_try/#? IBROWSE:REXX/IBS_Images'
IF sel=2 THEN 'copy fun/#? IBROWSE:REXX/IBS_Images'
IF sel=3 THEN 'copy strict/#? IBROWSE:REXX/IBS_Images'
IF sel=4 THEN 'copy yamish/#? IBROWSE:REXX/IBS_Images'